home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00550.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  282 b   |  23 lines
  1. on mouseUp
  2.   global s, switchit
  3.   if soundBusy(2) = 0 then
  4.     mixdown()
  5.   end if
  6.   puppetSound(1, 0)
  7.   zoom3()
  8.   zoom3()
  9.   zoom3()
  10.   zoom3()
  11.   zoom3()
  12.   zoom3()
  13.   zoom3()
  14.   zoom3()
  15.   zoom3()
  16.   zoom3()
  17.   zoom3()
  18.   zoom3()
  19.   zoom3()
  20.   puppetSound(1, s + 199)
  21.   set switchit to 0
  22. end
  23.